home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Input 64
/
Input_64_86-05_1986_Verlag_Heinz_Weise_de.d64
/
print-file .lsp
< prev
next >
Wrap
Text File
|
2023-02-26
|
1KB
|
30 lines
(print-on-screen expr (lambda (ga fn)
(prog (e) (cond ((eq ga 8) (open 1 ga
2 (pack (list fn ",u,r")))) (t (open
1 ga 0 fn))) (input 1) loop (setq e (
read)) (cond ((atom e) (close 1) (
normal) (return t))) (print-props (
car e) (cdr e)) (go loop))))
(print-file expr (lambda (ga fn) (
prog (e) (cond ((eq ga 8) (open 1 ga
2 (pack (list fn ",u,r")))) (t (open
1 ga 0 fn))) (open 2 4) loop (input 1)
(setq e (read)) (normal) (cond ((
atom e) (close 1) (close 2) (return t)
)) (output 2) (print-props (car e) (
cdr e)) (normal) (go loop))))
(print-props expr (lambda (a p) (cond
((null p) nil) (t (pp (cond ((eq (car
p) (quote expr)) (cons (quote de) (
cons a (cdr (cadr p))))) ((eq (car p)
(quote fexpr)) (cons (quote df) (cons
a (cdr (cadr p))))) ((eq (car p) (
quote macro)) (cons (quote dm) (cons
a (cdr (cadr p))))) ((eq (car p) (
quote value)) (list (quote setq) a (
list (quote quote) (cadr p)))) (t (
list (quote defprop) a (car p) (cadr
p))))) (terpri) (print-props a (cddr
p))))))
nil